# name : R flextable with full
# key : flextable_full
# contributor: Shuguang
# expand-env: ((yas-indent-line 'fixed) (yas-wrap-around-region 'nil))
# --
ft <- flextable::flextable(${1:obj}$0) |>
  flextable::set_formatter_type(fmt_double = "%2.2f%%") |>
  flextable::set_formatter(var = fun) |>
  flextable::theme_zebra() |>
  flextable::autofit()
ft